#!/usr/bin/perl



$ifconfig_out = readpipe("ifconfig eth1");

#print $ifconfig_out;

@fields = split(" ", $ifconfig_out ); 

#print @fields;

$my_mac = $fields[4];

 
 
print "$my_mac\n";

exit 0; 



